home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
dm10e
/
jstest.asp
< prev
next >
Wrap
Text File
|
1999-04-29
|
1KB
|
52 lines
<%@ LANGUAGE="JScript" %>
<HTML>
<BODY>
<pre>
<b>
Geocel DevMailer 1.0
JScript Usage Example
(c) 1999, Geocel International, Inc.
</b>
</pre>
<%
// Create DevMailer Object
Mailer = Server.CreateObject("Geocel.Mailer");
// Add first SMTP server
Mailer.AddServer("mailhost.geocel.com", 25);
// Set Sender Information
Mailer.FromAddress = "support@geocel.com";
Mailer.FromName = "Geocel Support";
// Add a recipient to the message
Mailer.AddRecipient("lham@geocel.com", "L. Ham");
// Set the Subject and Body
Mailer.Subject = "Welcome to DevMailer JScript Test"
Mailer.Body = "Test Message Body Line 1\r\n" +
"Test Message Body Line 2\r\n" ;
// Send Email - Perform Error Checking
bSuccess = Mailer.Send();
if( !bSuccess ) {
if( !Mailer.Queued )
Response.Write("<h3>Could not send message..queueing failed!</h3>");
else
Response.Write("<h3>Could not send message..queued instead!</h3>");
}
else
Response.Write("<h3>Message Sent Successfully!</h3>");
%>
<BR>
</BODY>
</HTML>